Option Public
Option Declare

Declare Function GetDiskFreeSpace Lib "Kernel32" Alias _ 
"GetDiskFreeSpaceA" (ByVal lpRootPathName As String, _ 
lpSectorsPerCluster As Long, lpBytesPerSector As Long, _ 
lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters _ 
As Long) As Long 